home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / ARexxTools / hGRexxSupport.lha / hGRxS_test.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-01-23  |  1.3 KB  |  40 lines
  1. /* hGRxS_test.rexx --- test script for hgRexxSupport.library */
  2.  
  3. call addlib('hGRexxSupport.library', 0, -30);
  4.  
  5. ArgsTemplate = ""; Arguments = "";
  6.  
  7. interpret Include("rexx:ums/UMSInit.rexx");
  8. if rc ~= 0 then exit;
  9.  
  10. FLAGS_Empty = '00000000'x
  11. FLAG_0 = BITSET(FLAGS_Empty, 0)
  12. FLAG_1 = BITSET(FLAGS_Empty, 1)
  13. FLAG_2 = BITSET(FLAGS_Empty, 2)
  14. FLAG_3 = BITSET(FLAGS_Empty, 3)
  15. FLAGS_03 = BITOR(FLAG_0,FLAG_3);
  16. FLAGS_12 = BITOR(FLAG_1,FLAG_2);
  17. FLAGS_0123 = BITOR(FLAGS_03,FLAGS_12)
  18. FLAGS_123 = BITSET(FLAGS_12,3)
  19. FLAG_Old = BITSET(FLAGS_Empty, UMSUSTAT_Old)
  20. FLAGS_PostArch = BITSET(BITSET(FLAGS_Empty, UMSUSTAT_PostPoned), UMSUSTAT_Archive)
  21. Match = BITSET(FLAGS_Empty, UMSUSTAT_ReadAccess)
  22. Mask = BITOR(Match , FLAGS_PostArch)
  23. Mask = BITSET(Mask, UMSUSTAT_Old)
  24.  
  25. trace ?r
  26. say FLAGS_Empty = MakeFlags();
  27. say FLAG_0 = MakeFlags(0);
  28. say FLAG_1 = MakeFlags(1);
  29. say FLAG_2 = MakeFlags(2);
  30. say FLAG_3 = MakeFlags(3);
  31. say FLAGS_03 = MakeFlags(0,3);
  32. say FLAGS_12 = MakeFlags(1,2);
  33. say FLAGS_0123 = MakeFlags(0,1,2,3);
  34. say FLAGS_123 = MakeFlags(1,2,3);
  35. say FLAG_Old = MakeFlags(UMSUSTAT_Old);
  36. say FLAGS_PostArch = MakeFlags(UMSUSTAT_PostPoned, UMSUSTAT_Archive)
  37. say Match = MakeFlags(UMSUSTAT_ReadAccess);
  38. say Mask = MakeFlags(UMSUSTAT_ReadAccess, UMSUSTAT_Old,UMSUSTAT_PostPoned, UMSUSTAT_Archive);
  39.  
  40.